module const_mod

  implicit none
    
  integer, parameter :: r8 = 8

  real(r8), parameter :: pi     = atan(1.0_r8) * 4.0_r8
  real(r8), parameter :: pi2    = 2 * pi
  real(r8), parameter :: eps    = epsilon(1.0_r8)
  real(r8), parameter :: deg    = 180.0_r8 / pi
  real(r8), parameter :: rad    = pi / 180.0_r8

  real(r8) :: radius = 6.37122d6

  real(r8), parameter :: r8_missing_value = huge(1.0_r8)

end module const_mod
